home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / Centri / Centri.dir / 00289_Script_Shrink < prev    next >
Text File  |  1999-02-25  |  2KB  |  46 lines

  1. property origSprite, csprite1, csprite2, csprite3,
  2.  
  3. on mouseUp me
  4.   set the stretch of sprite origSprite = TRUE
  5.   set the stretch of sprite csprite1 = TRUE
  6.   set the stretch of sprite csprite2 = TRUE
  7.   set the stretch of sprite csprite3 = TRUE
  8.   
  9.   
  10.   
  11.   set the width of sprite origSprite = the width of sprite origSprite / 1.2
  12.   set the width of sprite csprite1 = the width of sprite csprite3 
  13.   set the width of sprite csprite2 = the width of sprite csprite3
  14.   set the width of sprite csprite3 = the width of sprite csprite3 / 1.2 
  15.   
  16.   set the height of sprite origSprite = the height of sprite origSprite / 1.2
  17.   set the height of sprite csprite1 = the width of sprite csprite3
  18.   set the height of sprite csprite2 = the width of sprite csprite3
  19.   set the height of sprite csprite3 = the width of sprite csprite3
  20.   
  21.   
  22.   updateStage
  23.   puppetSound 2, "click"
  24. end
  25.  
  26.  
  27. on getPropertyDescriptionList
  28.   
  29.   set p_list = [ ¼
  30.  origSprite : [ #comment:   "  Screen 1:", ¼
  31.                                #format:   #integer, ¼
  32.                               #default:    1 ] , ¼
  33.   csprite1 : [ #comment:   " Control Sprite 1:", ¼
  34.                                #format:   #integer, ¼
  35.                               #default:    1 ] , ¼
  36.   csprite2 : [ #comment:   " Control Sprite 2:", ¼
  37.                                #format:   #integer, ¼
  38.                               #default:    2 ] , ¼
  39.   csprite3 : [ #comment:   " Control Sprite 3:", ¼
  40.                                #format:   #integer, ¼
  41.                               #default:    3 ] ]
  42.   
  43.   return p_list
  44.   
  45. end
  46.